\\ [$MODE] makes the encryptor use one of the following methods:
// $0-$9 = MCF (Using Encryption Table 0-9)
\\ $A = Cybeonix (Default)
// $B = SoundLeech
\\ $C = DWaRFx (Uses [!KEY] to encrypt text, if [!KEY] isn't
// Supplied, the channel name will be used instead)
\\
// [!KEY] is used with the [$MODE] $C (any ascii text, except space)
\\
// [DESTINATION] can output the message as one of the following:
\\
// #[CHANNEL] = sends the message to the channel (Default)
\\ *TOPIC = sets the current channels topic to the message
// /[NICK] = sends a private message to [NICK]
\\
// Add to AmIRC with the following command (put this script in AMIRC:Rexx/)
\\ /Alias X = /Rx DFX_Encode %p
*/
/* Compressed with CompressRexx v2.1, (C) 1993-96 Robert Hofmann */
Options Results;Parse Arg args;bold1=d2c(27);bold2=d2c(2);mode=10;key="";output="";Do loop=1 To 3;type=Substr(args,1,1);Select;When type="$" Then Do;Parse Value args With '$'mode args;If DataType(mode)~='NUM' Then Do;mode=Upper(mode);Select;When mode='A' Then mode=10;When mode='B' Then mode=11;When mode='C' Then mode=12;Otherwise;End;End;If mode<0 | mode>12 Then Call ERR(1);End;When type="!" Then Do;Parse Value args With '!'key args;End;When type="#" Then Parse Value args With output args;When type="*" Then Parse Value args With output args;When type="/" Then Parse Value args With '/'output args;OtherWise;End;args=Strip(args,L);End;If args="" Then Call ERR(2);If mode<11 Then Call GET_TABLES;"GetChannel";channel=result;If output="" Then output=channel;If key="" Then Do;If Left(output,1)='*' Then key=channel;Else key=output;End;umess=args;emess="";Select;When mode=11 Then Do;ln=Length(args);Do loop=1 To ln;ch=c2d(Substr(args,loop,1));If ch>32 Then ch=ch+128;emess=emess||d2c(ch);End
mess="[UTC234]: "d2c(03)||emess||d2c(03);End;When mode=12 Then Do;If key=channel | key=output Then echar='A4'x||'+';Else echar='A4'x||'-';km=1;kp.1=72;key=Upper(key);Do While key~="";ch=c2d(Substr(key,1,1));key=Delstr(key,1,1);If ch>112 Then ch=ch-150;If ch<32 Then ch=ch+70;kp.km=ch;km=km+1;End;args=Reverse('DFx 'args);kn=1;Do While args~="";etmp=c2d(Left(args,1))+kp.kn;args=Delstr(args,1,1);If etmp>255 Then etmp=etmp-256;emess=d2c(etmp)||emess;kn=kn+1;If kn>=km Then kn=1;End;mess=echar||emess;End;Otherwise Do;If mode=10 Then args=Upper(args);Do Until args="";Parse Value args With wrd1 wrd2 args;emess=emess wrd1 Reverse(wrd2);End;mess=echar||Reverse(Translate(Strip(emess),table2,table1));End;End;If Upper(output)='*TOPIC' Then "Say /Topic "mess;Else "RAW PRIVMSG "output" :"mess;If Substr(output,1,1)~="#" Then "Echo P="bold1"x«DFx_Encode» "bold2||output":"bold2 umess;Else "Echo P="bold1"x«DFx_Encode» "umess;Exit;GET_TABLES:;If mode=10 Then Do;echar='A9'x;table1=GetClip("ALINE.1");table2
=GetClip("ELINE.10")
If table1="" Then Do;table1='? ZYXWVUTSRQPONMLKJIHGFEDCBA-0987654321}{][)($#@!,:.';Call SetClip("ALINE.1",table1);End;If table2="" Then Do;table2=X2C(E7CFEEC2F3CEC1C7C0C3DBEACAFEDDF5E1E5FDFCE0FDB6CCE4F1EFF2);table2=table2||X2C(B6A4AFA5B0AEBFBAAAF7ACECDEA6C8A7D0E6DFF0B7B1F8B5);Call SetClip("ELINE.10",table2);End;End;Else Do;echar='AE'x||mode;table1=GetClip("ALINE.2");table2=GetClip("ELINE."mode);If table1="" | table2="" Then Do;Parse Source . . drawer .;tmp=Pos('/',drawer);If tmp=0 Then tmp=Pos(':',drawer);Else tmp=Lastpos('/',drawer);drawer=Left(drawer,tmp);If ~Open('file1',drawer||'MCF.Encrypt') Then Do;If ~Open('file1','AmIRC:Rexx/DWaRFx/MCF.Encrypt') Then Do;If ~Open('file1','MCF:MCF.Encrypt') Then Do;'Echo P='d2c(1)'«DFx_Data» 'd2c(2)'MCF.Encrypt'd2c(2)' not found! (See Docs!)';'Echo P='d2c(1)'«DFx_Data» If you do not install this file, 'd2c(2)'DWaRFx'd2c(2)' will be unable to Encode/Decode MCF encrypted messages!';Exit;End;End;End;ln=Readln('file1');ln=Readln('file1');If tabl
e1="" Then Do
table1=ln;SetClip("ALINE.2",table1);End;If table2="" Then Do;Do loop=0 To 9;ln=Readln('file1');If loop=mode Then table2=ln;End;Call Setclip('ELINE.'mode,table2);End;End;End;Return;ERR:;Parse Arg errno;temp="P="bold1"x«DFX_Encode» "bold2"Error: "bold2;Select;When errno=1 Then "Echo "temp"Mode not available!";When errno=2 Then "Echo "temp"No message to encrypt!";OtherWise;End;Exit;Return
